﻿Imports EntitiesLayer

'---------------------------------------> Clase creada por Diego Barillas <----------------------------------------

Public Class frmModificarAsociarMusculosAEjercicio

    Dim listaMusculos As List(Of Musculo) = New List(Of Musculo) 'guarda los musculos seleccionados

    Private Sub frmModificarAsociarMusculosAEjercicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Le da estilo al dataGrid de musculos en el form frmModificarAsociarMusculosAEjercicios

        tblMusculos.Columns(1).Visible = False
        tblMusculos.Columns(3).HeaderText = "Irrigación"
        tblMusculos.Columns(5).HeaderText = "Inserción"
        tblMusculos.Columns(6).HeaderText = "Inervación"
        'tblMusculos.Columns(0).ReadOnly = False
        tblMusculos.Columns(0).Width = 120
        tblMusculos.Columns(2).Width = 200
        tblMusculos.Columns(3).Width = 200
        tblMusculos.Columns(4).Width = 200
        tblMusculos.Columns(5).Width = 200
        tblMusculos.Columns(6).Width = 200
        tblMusculos.Columns(2).ReadOnly = True
        tblMusculos.Columns(3).ReadOnly = True
        tblMusculos.Columns(4).ReadOnly = True
        tblMusculos.Columns(5).ReadOnly = True

    End Sub


    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Me.Hide()
        frmModificarImagenesEjercicio.Show()
    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
        frmTransparente.Close()
        frmModificarEjercicio.Close()
        frmModificarImagenesEjercicio.Close()
        Me.Close()
    End Sub

    Private Sub btnRegistrar_Click(sender As Object, e As EventArgs) Handles btnRegistrar.Click

        'Recorre cada fila del dataGrid tblMusculos
        For Each dRow As DataGridViewRow In tblMusculos.Rows

            'Si la fila en la celda asociado el valor es true entra al if
            If dRow.Cells.Item("Asociado").Value = True Then

                listaMusculos.Add(objGestor.listaMusculos.ElementAt(Convert.ToUInt32(dRow.Index))) 'guarda el musculo en la lista de musculos
            End If
        Next dRow

        'valida que si la lista de musculos es cero muestre un mensaje de error
        If listaMusculos.Count = 0 Then
            lblMusculosAsociados.Visible = True
        Else
            Dim nombreComun As String = frmModificarEjercicio.txtNombreComun.Text
            Dim nombreOpcional As String = frmModificarEjercicio.txtNombreOpcional.Text
            Dim codigo As String = frmModificarEjercicio.txtCodigo.Text
            Dim erroresComunes As String = frmModificarEjercicio.txtErroresComunes.Text
            Dim indicacionesGenerales As String = frmModificarEjercicio.txtIndicaciones.Text
            Dim nombreMusculoPrincipal As String = frmModificarEjercicio.cmbMusculos.SelectedItem
            Dim imagenInicial As String = frmModificarImagenesEjercicio.imagenInicial
            Dim imagenFinal As String = frmModificarImagenesEjercicio.imagenFinal
            Dim idEjercicio As String = frmModificarEjercicio.txtIdEjercicio.Text

            'llama al metodo modificarEjercicio en el gestor
            objGestor.modificarEjercicio(idEjercicio, nombreComun, nombreOpcional, codigo, imagenInicial, imagenFinal, nombreMusculoPrincipal, listaMusculos, erroresComunes, indicacionesGenerales)

            MsgBox("Se registro el ejercicio correctamente")

            'limpia los controles del paneForm para refrescar el dataGrid
            FrmPrincipal.paneForm.Controls.Clear()
            Dim frm As New Control
            frm = New frmConsultarEjercicios
            frm.Dock = DockStyle.Fill
            FrmPrincipal.paneForm.Controls.Add(frm)

            frmTransparente.Close()
            Me.Close()
            frmModificarEjercicio.Close()
            frmModificarImagenesEjercicio.Close()
        End If
    End Sub
End Class